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SQL> cl scr 



NUMBER (4) : =&EnterEmpno; 
VARCHAR2 (30); 

NUMBER (7, 2) ; 

NUMBER (7, 2) ; 







SQL> DECLARE 

2 V_Empno 

3 V_EName 

4 V_Sal 

5 V_Comm 

6 BEGIN 

7 SELECT 

8 EName, Sal, Comm 

9 INTO ju XI, 

10 V_EName , V_Sal, V_Comm J 

11 FROM EMP \ +rr ^ t 

12 WHERE Empno = V_Empno; \ 

1 3 DBMS_OUTPUT . PUT_LINE ( ' The Name : ' | | INITCAP (V_Enme) >K 

14 DBMS_OUTPUT . PUT_LINE ( ' The Salary : ' | | TO_CHAH^lss^ '99, 999.99')); 

15 DBMS_OUTPUT . PUT_LINE ( ' The Commission : ' | | N V^C sS-^eHAR ( V Comm) . 'No 

Commission ' ) ) ; 

16 DBMS_OUTPUT . PUT_LINE ( ' The Total Sal is 
NVL (V_Comm, 0))); 

17 END; 

18 / 

Enter value for enterempno: 7839 
The Name : King 

The Salary : 5, 000.00 + 

The Commission : No Commission ^4 

5000 ♦ 







^ CHAR (V Sal + 



The Total Sal is 



PL/SQL procedure successf ftlt^kcl^npleted . 
SQL> ED 

Wrote file af iedt . "'?*• rt- 






(ENa^) Ename, 
^±WV9G999D99') Sal, 





1 SELECT 

2 INITCAP 

3 TO_CH 

4 NVL ( T 

5 Sal + 

6 FRQMjpMP 

7* £ mpno = &V_Empno 

SQL>jV \ 4 

En^yv^l ne for v_empno : 7 83 



(CVmm) , ' No Commission ' ) Comm, 

'omm, 0) TotSal 



SAL 



COMM 



TOTSAL 



ing 5,000.00 No Commission 

SQL> cl scr 



5000 
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SQL> 

2 

3 

4 

5 

6 
7 



10 

11 

12 

13 

14 

15 

16 
17 



DECLARE 
V_Empno 
V_Ename 
V_Deptno 
V_Job 
V_MGR 
V_HireDate 
V_Sal 
V_Comm 
BEGIN 
SELECT 

Ename, Deptno, 

INTO 

V_Ename, V_Deptno, 

FROM Emp 

WHERE Empno = V_Empno; 
DBMS_OUTPUT . PUT_LINE ( ' The Details 



&EnterEmpNo; 



NUMBER (4) : 

VARCHAR2 (30) 
NUMBER (2) ; 

VARCHAR2 (30); 
NUMBER (4) ; 

DATE; 

NUMBER (7, 2) ; 

NUMBER (7, 2) ; 



Job, MGR, HireDate, Sal, Comm 



V_Job, V_MGR, V_HireDate, 



of Employ ee 

Requested by You Are ...'); -tf 

18 DBMS_OUTPUT . PUT_LINE ( ' The Employee Name j+H+'I^V-Ename) ; 

DBMS_OUTPUT . PUT_LINE ( ' The Department ^ttybgfr frr ' | |V_Deptno) 
DBMS_OUTPUT . PUT_LINE ( 'The Designation^ + t/fv_Job) ; 
DBMS_OUTPUT . PUT_LINE ( ' The Manager* Ndfflfe 3* : ' | | V_MGR) ; 

DBMS_OUTPUT . PUT_LINE ( ' The Joinif^gjoa^f: ' | | V_HireDate ) ; 

'The Basic Safttory : ' | |V_Sal); 




I | V_Empno | | 



19 

20 
21 
22 

23 

24 

25 



DBMS_OUTPUT . PUT_LINE ( 
DBMS_OUTPUT . PUT_LINE ( 
END; 



The Cp mmi ssd on Earned : ' | | V_Comm) 



7«£ 






j |i f| 



26 / 

Enter value for enterempno : , - 

The Details of Employee N^M^fc ' %p54 Requested by You Are 
The Employee Name : MAP^#N^A ^ 

li# 



The Department Number 
The Designation : ^KfcES: 

The Manager Number ^ : .A 
The Joining Date : 28 -.pE 
The Basic Salary t: 12^0 
The Commissi hied : 1400 



i- SEP-81 



PL/SQL proce 



SQL> 



\ 



.e 




% 

successfully completed. 



J+i | [f 

EnteE'vaiue for enterempno: 7839 

ThAB tet jfr i 1 s of Employee Number 7 8 3 9 Requested by You Are 
nployee Name : KING 

lepartment Number : 10 
\f\e Designation : PRESIDENT 
■The Manager Number : 

The Joining Date : 17-NOV-81 
The Basic Salary : 5000 
The Commission Earned : 
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PL/SQL procedure successfully completed. 



SQL> ED 
Wrote file 



af iedt . buf 



10 

11 

12 

13 

14 

15 

16 

17 

18 



Requested 

1 9 DBMS. 

20 



DECLARE 
V_Empno 
V_Ename 
V_Deptno 
V_Job 
V_MGR 
V_HireDate 
V_Sal 
V_Comm 
BEGIN 
SELECT 
Ename, 

INTO 

V_Ename, V_Deptno, V_Job, V_MGR, V_: 

FROM Emp 

WHERE Empno = V_Empno; 

/* 

DBMS_OUTPUT . PUT_LINE ( ' The Detai Employee 

by You Are 

OUTPUT . PUT_LINE ( ' The Effl/T^:e Name : 
OUTPUT . PUT_LINE ( ' T|e /ecWtment Number 
ThS-^D^^.gnat 



NUMBER (4) := &EnterEmpNo; 

VARCHAR2 (30); 

NUMBER (2) ; 

VARCHAR2 (30); 

NUMBER ( 4 ) ; 

DATE; 

NUMBER (7, 2) ; 

NUMBER (7, 2) ; 



Deptno, Job, MGR, HireDate, 




Comm 



Number ' | |V_Empno| | 



ion : ' 

Number 



DBMS 

DBMS_OUTPUT . PUT_LINE ( 

DBMS_OUTPUT . PUT_LINE V/^^Afcmager 
DBMS_OUTPUT . P U T_L I NSjtf e MJo i n i n g Date 
DBMS OUTPUT .PUT L UMe Vt^ Basic Salary 
DBMS_OUTPUT . PtMMI ' ‘ 
v 

END; J 




'The 



| | V_Ename) ; 

: ' | |V_Deptno) 

I I V_Job) ; 

: ' | | V_MGR) ; 

' | | V_HireDate) ; 

' I I V_Sal) ; 
Commission Earned : ' | |V_Comm) ; 



PL/SQL 



terempno: 7839 

wr i \ 

successfully 



completed. 



|LARE 
/^Empno 
_Ename 
V_Deptno 
V_Job 
V_MGR 
V_HireDate 
V Sal 



NUMBER (4) := SEnterEmpNo ; 

VARCHAR2 (30); 

NUMBER (2) ; 

VARCHAR2 (30); 

NUMBER (4) ; 

DATE; 

NUMBER (7, 2) ; 
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NUMBER (7, 2) ; 
VARCHAR2 (30); 



Job, MGR, HireDate, Sal, Comm 



V_Job, V JMGR , V_HireDate, V_Sal, V_Comm 



9 V_Comm 

1 0 V_MGRName 

11 BEGIN 

12 SELECT 

13 Ename, Deptno, 

14 INTO 

15 V_Ename , V_Deptno, 

1 6 FROM Emp 

17 WHERE Empno = V_Empno; 

18 IF V_MGR IS NOT NULL THEN 

19 SELECT Ename INTO VJMGRName 
2 0 FROM Emp 

21 WHERE Empno = VJMGR; 

22 ELSE 

23 SELECT Ename INTO VJMGRName 

2 4 FROM Emp 

25 WHERE MGR IS NULL; 

26 END IF; 

27 DBMSJOUTPUT . PUT_LINE ( ' The Details of 
Requested by You Are 

28 DBMSJOUTPUT . PUT_LINE ( ' The 

29 DBMSJOUTPUT . PUT_LINE ( ' The 

30 DBMSJOUTPUT . PUT_LINE ( ' The 

31 DBMSJOUTPUT . PUT_LINE ( ' The ManagerTfcmber 
' | | NVL (TOJOHAR (VJMGR) , ' "Cannot Managed" ' ) I I 
' | | VJMGRName) ; 

32 DBMSJOUTPUT . PUT_LINE ( ' Tjje jfoi^.ng Date : 

' | | TO_CHAR (VJTireDate, ' FMDD, Year ' ) ) ; 

33 DBMS_OUTPUT.PUT_LINEt+'ffr« ' ^sic Salary : 

' , TO_CHAR(V_Sal, ' 99, 999 

34 DBMS OUTPUT .PUT L Lmu Nm^ Commission Earned 

' | | NVL (TO_CHAR (VJ(^)fm Commission . . . Sorry! ' ) ) 

35 END; ( |t +,V 

3 6/ _+ 

i +4X 

Enter value for anterempno : 7654 




V 

<V 

EmpifclVeaLNumber ' | | V Empno | I 

‘ 3 ? 



\ 



_ V 

Employee Nai% t ++ Mr | | INITCAP (V_Ename) ) 
Departm^n^Th Steer : ' | |V_Deptno) ; 
Desig^^^d^/' ' I I INITCAP (V_Job) ) ; 

, and his Name is : 



! | CONCAT ( ' INR 



Details 
Employ^ — 
Departmem| 
Desi#fP%etion 

M%a 



4 & ml oyee 



Number 
"V Martin 
Fumber 



7654 Requested by You Are 



30 

Salesman 

: 7698, and his Name is : BLAKE 

28, September Nineteen Eighty-One 
Salary : INR 1,250.00 
Earned : 1400 



»er*Number 
JljiitjLng Date : 






'SQL procedure successfully completed. 



SQL> / 

Enter value for enterempno: 7839 

The Details of Employee Number 7839 Requested by You Are 
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The Employee Name : King 

The Department Number : 10 
The Designation : President 

The Manager Number : "Cannot be Managed", and his Name is 

The Joining Date : 17, November Nineteen Eighty-One 
The Basic Salary : INR 5,000.00 
The Commission Earned : No Commission ... Sorry ! 

PL/SQL procedure successfully completed. 

SQL> cl scr 



KING 



10 

11 

12 

13 

14 

15 

16 
17 



Emp . Empno%TYPE 
Emp . EName%TYPE ; 
Emp. Job%TYPE; 
Emp. Sal%TYPE; 



= &EnterEmpno; 



SQL> DECLARE 
2 V_Empno 
V_EName 
V_Job 
V_Sal 
BEGIN 
SELECT 
Ename , 

INTO 

V_Ename, 

FROM EMP 

WHERE Empno = V_Empno; 

DBMS_OUTPUT . PUT_LINE ( ' The : ' | TV_Ename) 

DBMS_OUTPUT . PUT_LINE ( ' The \ I |V_Job) 

.OUTPUT . PUT_LINE ( ' T|e | |V_Sal) 

\ 

Enter value for ent er empty? 65*4 

The Name : MARTIN * 



Job, Sal 



V_Job, V_Sal 




DBMS. 

END; 

/ 






The 

The 



Job 
Sal : 



SALESMAN 
1250 



PL/SQL pro 





p^O$*4 

uccessfully completed. 




V_Empno ' 
W HireDate 



V_Sal 
V_Comm 
V_MGRName 
BEGIN 
SELECT 

Ename, Deptno, 



Emp . Empno%TYPE 
Emp . Ename%TYPE ; 
Emp . Deptno%TYPE; 

Emp. Job%TYPE; 

Emp . MGR%TYPE ; 

Emp . HireDate%TYPE ; 
Emp. Sal%TYPE; 

Emp . Comm%TYPE ; 

Emp . Ename%TYPE ; 



= SEnterEmpNo; 



Job, MGR, HireDate, Sal, Comm 
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V_Deptno, V_Job, V_MGR , V_HireDate, V_Sal, V_Comm 




14 INTO 

1 5 V_Ename 

1 6 FROM Emp 

17 WHERE Empno = V_Empno; 

18 IF V_MGR IS NOT NULL THEN 

19 SELECT Ename INTO V_MGRN ame 

20 FROM Emp 

21 WHERE Empno = V_MGR ; 

22 ELSE 

2 3 SELECT Ename INTO V_MGRN ame 

24 FROM Emp 

25 WHERE MGR IS NULL; 

2 6 END IF; i — JF 

27 DBMS_OUTPUT . PUT_LINE ( ' The Details of Employee Numbed ' ffv_Empno | | 

Requested by You Are 4x b-i-. 

28 DBMS_OUTPUT . PUT_LINE ( ' The Employee Name : ' MlNll^P (V_Ename) ) ; 

29 DBMS_OUTPUT . PUT_LINE ( ' The Department Number • \|t+tiDeptno) ; 

30 DBMS_OUTPUT . PUT_LINE ( ' The Designation : ' I (V_Job) ) ; 

31 DBMS_OUTPUT . PUT_LINE ( ' The Manager Number ' 

' | | NVL (TO_CHAR (V_MGR) , '"Cannot be Managed'!,.; 

' | | VJMGRName ) ; ' T , 

32 DBMS_OUTPUT . PUT_LINE ( ' The Joining|Drf& + 

' | | TO_CHAR (V_HireDate, ' FMDD, Month Y ^aj .' 

DBMS_OUTPUT . PUT_LINE ( ' The Basic S^ary : ' 

' , TO_CHAR(V_Sal, ' 99, 999.99' ) ) ) ; 

"m. 

Sion Earned 
Sorry ! ' ) ) ; 



>er drHj. - 

>W 






and his Name is 



33 

a nu7 \n /T7 »nn non nn?\\\. 

34 DBMS_OUTPUT . PUT_LINE ( ' The cMm?W 
| | NVL (T0_CHAR (V_Comm) , ' No Cgmi^s^fen . 



| | CONCAT ( ' INR 



35 END; 

36 // 

37 . 

SQL> ED 

Wrote file afiedt. 









hr A 



CV> 







tut 



J 




DECLARE 

V_Empno t ’* r Emp . Empno%TYPE : = 
V_Enam»Mt ~Ht T| 4 Emp . Ename%TYPE; 

_Dept%o-f f+ T-i E%p . Deptno%TYPE; 

' - T ^ Emp. Job%TYPE; 

Emp . MGR%TYPE ; 

Emp . HireDate%TYPE; 

Emp. Sal%TYPE; 

Emp . Comm%TYPE ; 

Emp . Ename%TYPE ; 



&EnterEmpNo ; 



V 

V_Job 
V_M0%, 

^fSifreBate 

v_c omm 

^^MGRName 
BEGIN 
SELECT 

Ename, Deptno, 



Job, MGR, HireDate, Sal, Comm 



INTO 

V_Ename , V_Deptno, V_Job, V_MGR, V_HireDate, V_Sal, V_Comm 
FROM Emp 
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17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 



WHERE Empno = V_Empno; 

IF V_MGR IS NOT NULL THEN 
SELECT Ename INTO V_MGRN ame 
FROM Emp 

WHERE Empno = V_MGR ; 

ELSE 

SELECT Ename INTO V_MGRN ame 
FROM Emp 

WHERE MGR IS NULL; 

END IF; 

DBMS_OUTPUT . PUT_LINE ( 
Requested by You Are . . . ' ) 

2 8 DBMS_OUTPUT . PUT_LINE ( 

29 DBMS_OUTPUT . PUT_LINE ( 

30 DBMS_OUTPUT . PUT_LINE ( 

31 DBMS_OUTPUT . PUT_LINE ( 



The Details of Employee Number | >} 

Employee Name : 'll I N I T C]kP ame ) ) ; 

Department Number : ' I | VJ^ptFro) ; 

Designation : ' | | INITCMr- (vjjbb) ) ; 




'The 

'The 

'The 

'The 



'Cannot 



Manager Number 
be Managed" ' ) I I 



' | | NVL (TO_CHAR (V_MGR) 

' | | V_MGRName ) ; 

32 DBMS_OUTPUT . PUT_LINE ( ' The Joining Date 
' | | TO_CHAR (V_HireDate, ' FMDD, Month Year 

33 DBMS_OUTPUT . PUT_LINE ( ' The Basic Sal 
' , TO_CHAR(V_Sal, ' 99, 999. 99 

34 DBMS_OUTPUT . PUT_LINE ( 

' | | NVL (TO_CHAR (V_Comm) , 'No 

35* END; 

SQL> / 

Enter value for enterempno 
The 









s Name is 






•)); 

larX.: + +YTTC 



') ) ) ; 

1 The Comm 
Commission 




CONCAT ( ' INR 



ifiiffrned : 

teorry ! ' ) ) ; 

W 









265ffX, 



Details of Employee Numbei» : , ^76jo4 
Employee Name : Mart 

Department Number 
Designation : Sale 
Manager Number 



Requested by You Are 



Joining Date 
Basic Salary 
Commis; 



PL/SQL 






and his Name 
tember Nineteen 
1,250.00 
1400 



ccessfully completed. 



rs 



BLAKE 



Eighty-One 



Null? 



Type 



MGR 

HIREDATE 

SAL 

COMM 



NOT NULL NUMBER (4) 

VARCHAR2 (10 
VARCHAR2 (9) 
NUMBER ( 4 ) 
DATE 

NUMBER (7,2) 
NUMBER (7,2) 
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DEPTNO 



NOT NULL NUMBER (2) 



SQL> DECLARE 

2 V_EmpRecord Emp%ROWTYPE ; 

3 BEGIN 

4 SELECT * INTO V_EmpRecord 

5 FROM EMP 

6 WHERE Empno = &EnterEmpno; 

7 DBMS_OUTPUT . PUT_LINE ( ' The Name : 

8 DBMS_OUTPUT . PUT_LINE ( ' The Job : 1 

9 DBMS_OUTPUT . PUT_LINE ( ' The Salary 



' I I V_EmpRecord . Ename ) 
| | V_EmpRecord . Job) ; 

: ' | | V_EmpRecord . Sal 



10 DBMS_OUTPUT . PUT_LINE ( ' The Commission : 

11 DBMS_OUTPUT . PUT_LINE ( ' The Gross Salary 
NVL (V_EmpRecord . Comm, 0) ) ) ; 

12 END; 

13 / 

Enter value for enterempno: 7654 
The Name : MARTIN 
The Job : SALESMAN 
The Salary : 1250 
The Commission : 1400 
The Gross Salary : 2650 

PL/SQL procedure successfully complet 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Empno Emp.Empno% 

3 V_EmpRecord Emp%R< 

4 BEGIN 

5 SELECT * INTO 

6 FROM EMP 

7 WHERE Empno vjrmpno; 

D BM S_0 mW? tt^RU T_L I NE ( ' The Name 



| | V_EmpReco m . 

' I I (V_Emffeerorc 










EnterEmpno ; 



cord 




. P%T_LINE ( ' The Job 



' I I V_EmpRecord . Ename ) ; 

| | V_EmpRecord . Job) ; 

f . PUT_LINE ( ' The Salary : ' | | V_EmpRecord . Sal ) ; 

1 . PUT_LINE ( ' The Commission : ' | | V_EmpRecord . Comm) ; 

"OMTPUT . PUT_LINE ( ' The Gross Salary : ' | | (V_EmpRecord . Sal + 

NVL ( fecord . Comm, 0) ) ) ; 

S iB^^value for enterempno: 7 654 
Name : MARTIN 
the Job : SALESMAN 
The Salary : 1250 
The Commission : 1400 
The Gross Salary : 2650 
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PL/SQL procedure successfully completed. 



SQL> ED 

Wrote file afiedt.buf 



1 DECLARE 

2 V_EmpRecord Emp%ROWTYPE ; 

3 V_Empno V_EmpRecord . Empno%TYPE := &EnterEmpno; 
BEGIN 

SELECT * INTO V_EmpRecord 
FROM EMP 




4 

5 

6 

7 WHERE Empno = V_Empno; 

8 DBMS_OUTPUT . PUT_LINE ( ' The Name : 'll V_EmpRecord . Enltae) f 

9 DBMS_OUTPUT . PUT_LINE ( ' The Job : '|| V_EmpRecord*4ob) 

10 DBMS_OUTPUT . PUT_LINE ( ' The Salary : ' | | V_EmpR6%o|dt-%al ) ; 

11 DBMS_OUTPUT . PUT_LINE ( ' The Commission : ' | | \ AM tWcord.Comm) ; 

12 DBMS_OUTPUT . PUT_LINE ( ' The Gross Salary : ' Jj(\£?fempRecord . Sal + 
NVL (V_EmpRecord . Comm, 0) ) ) ; 

13* END; 

SQL> / 

Enter value for enterempno: 7654 
The Name : MARTIN 
The Job : SALESMAN 
The Salary : 1250 
The Commission : 1400 
The Gross Salary : 2650 A 




# 



Sid 



PL/SQL procedure successf pleted. 



SQL> cl scr 



j+J-K +j_f* 



c 

^ (2) jM= & G1 



SQL> DECLARE , . , . , . , 

2 V_Numl NUMBER (?) #= &GNuml; 

3 BEGIN t ^ 

4 DBMS_OU£j?lt& r mUT_LINE ( ' The V_Numl is 

5 DECLAfe-W, 

6 V 3 um 2 1 TOBER ( 2 ) := V_Numl; 

7 V_^W »3 NIMBER ( 2 ) := &GNum 2 ; 

NUMBER; 

9 | +J Ba^N 

.fl, ApE| MS_OUTPUT.PUT_LINE ( 'The V_Num 3 is 
"*+ 1 . Re suit := V_Num 2 + V_Num 3 ; 

DBMS_OUTPUT . PUT_LINE ( ' The Result is 
*3 END; 

14 END; 

15 / 

Enter value for gnuml : 25 
Enter value for gnum 2 : 45 



| | V_Numl ) ; 




| | V_Num3) ; 
I | Result) ; 
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Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
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The V_Numl is 
The V_Num3 is 
The Result is 



25 

45 

70 



PL/SQL procedure successfully completed. 

SQL> / 

Enter value for gnuml : 125 
Enter value for gnum2 : 45 
DECLARE 

ERROR at line 1: 

ORA-06502: PL/SQL: numeric or value error: number preci 
QRA-06512: at line 2 



SQL> ED 

Wrote file afiedt.buf 



1 DECLARE 

2 V_Numl NUMBER (3) := SGNuml; 

3 BEGIN 

DBMS_OUTPUT . PUT_LINE ( ' The V_Nun 
DECLARE 



V_Num2 NUMBER (2) := V_Numl, , 

V_Num3 NUMBER (2) := SGNum2ffi\ k 

Result NUMBER; 




| V_Numl ) ; 



10 

11 

12 

13 



is 



BEGIN r + + ’ T *\J 

DBMS_OUTPUT . P U T_L I N&4 1 iy3lum3 

Result : = V_Num2 

DBMS OUTPUT .PUT TjA ^e Result is 
END; M- 

14* END; L«jV 

SQL> / J 

Enter value for ^Liuml': 1 " 125 
Enter value r<®^tig.|um2 : 45 
The V_Numl %S+^12% 

DECLARE 



| | V_Num3) ; 
I | Result) ; 










ERROR^tl+fipe 1 : 

ORA-®^85B£ "t 1 1 PL/SQL : numeric or value error : number precision too large 
ORA.- 5 >2 : at line 6 

W 

> ED 

rote file afiedt.buf 






1 DECLARE 

2 V_Numl NUMBER (3) := SGNuml; 
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3 BEGIN 

4 DBMS_OUTPUT . PUT_LINE ( ' The V_Numl is 

5 DECLARE 

6 V_Num2 NUMBER (3) := V_Numl; 

7 V_Num3 NUMBER (2) := &GNum2; 

8 Result NUMBER; 

9 BEGIN 

DBMS_OUTPUT . PUT_LINE ( ' The V_Num3 is 
Result := V_Num2 + V_Num3 ; 
DBMS_OUTPUT . PUT_LINE ( ' The Result is 
END; 

14* END; 

SQL> / 

Enter value for gnuml : 125 
Enter value for gnum2 : 45 



| | V_Numl ) ; 



10 

11 

12 

13 



| | V_Num3) ; 
I | Result) ; 



The V_Numl is 
The V_Num3 is 
The Result is 



125 

45 

170 



PL/SQL procedure successfully completed. 



SQL> ED 

Wrote file afiedt.buf 






1 DECLARE ^ 

2 V_Numl NUMBER (3) := &GNuml;~%?U^ 

3 BEGIN ~ 

4 

5 

6 
7 




DBMS_OUTPUT . PUT_LINE ( ' Th§- + Vj^ml is 
DECLARE ^ % 

V_Num2 V_Numl%TYPE'-^' t| ¥ mirnl; 
V_Num3 NUMBER ( 2 ) w%pm2 ; 

Result NUMBER*-!- 
BEGIN A l r H ~|^ tr ^ 

.PUT LINE ( " 



| | V_Numl ) ; 



DBMS_OUTPUT . PUT ]JNE ( ’ The V_Num3 is 
Result := 4 Numz f V_Num3 ; 
DBMS_Qi«E%S^E > UT_LINE ( ' The Result is 



10 
11 

12 _ 

13 END; ‘ ! : , , 

14* END; 

SQL> / 

Enter\aj ^^ for gnuml : 125 
Entej^vijLue for gnum2 : 45 



MS QpKFS^. 

D; 

’• V 



| | V_Num3) ; 
I | Result) ; 




Tt 

I 1 



-%NJm: 
"*¥, Num' 



il is 
lum3 is 
Result is 



125 

45 

170 



L/ SQL procedure successfully completed. 



SQL> ED 

Wrote file afiedt.buf 
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:= SGNuml; 



1 DECLARE 

2 V_Numl NUMBER ( & GiveS ize) 

3 BEGIN 

4 DBMS_OUTPUT . PUT_LINE ( ' The V_Numl 

5 DECLARE 

6 V_Num2 V_Numl%TYPE := V_Numl; 

7 V_Num3 NUMBER (2) := &GNum2; 

8 Result NUMBER; 

9 BEGIN 

DBMS_OUTPUT . PUT_LINE ( ' The V_Num3 
Result := V_Num2 + V_Num3 ; 
DBMS_OUTPUT . PUT_LINE ( ' The Result 
END; 

END; 

/ 



| | V_Numl ) 



10 
11 
12 
13 
14* 

SQL> 

Enter value 
Enter value 
Enter value 
The V_Numl 
The V_Num3 
The Result 



| | V_Num3 ) 



I | Result) 



for 
for 
for 
is 
is 
is 



givesize : 
gnuml : 5 
gnum2 : 45 
5 

45 

50 



1 



PL/SQL procedure successfully complet 




SQL> / 

Enter value for 
Enter value for 
Enter value for 
The V_Numl is 
The V_Num3 is 
The Result is 



givesize : 
gnuml : 35 
gnum2 : 

35 
65 
10 



C 



V 



++ 

65V\ + f 



3 




N 



PL/SQL procedure successfully completed. 

\ 



SQL> / ^ P yU - r t *| 

Enter value+fie^tiglXesize : 



Enter 

Enter vrffcig 



value m®x#< 



3 




v -f¥i s 



^Xpgnuml : 
for gnum2 : 



175 

65 



is 



?L procedure 

r QL > / 

Enter value for givesize: 4 
Enter value for gnuml: 3245 
Enter value for gnum2 : 45 



175 

65 

240 

successfully completed. 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



The V_Numl 
The V_Num3 
The Result 



is 

is 

is 



3245 

45 

3290 



' | | V_EmpRe 
| | V_EmpRe c 



PL/SQL procedure successfully completed. 

SQL> cl scr 
SQL> DECLARE 

2 EmpRecord Emp%ROWTYPE; 

3 V_EmpRecord EmpRecord%TYPE; 

4 BEGIN 

5 SELECT * INTO V_EmpRecord 

6 FROM EMP 

7 WHERE Empno = &EnterEmpno; 

8 DBMS_OUTPUT . PUT_LINE ( ' The Name 

9 DBMS_OUTPUT . PUT_LINE ( ' The Job 

10 DBMS_OUTPUT . PUT_LINE ( ' The Salary : ' | | V_Em; 

11 DBMS_OUTPUT . PUT_LINE ( ' The Commission 

12 DBMS_OUTPUT . PUT_LINE ( ' The Gross Sala 
NVL (V_EmpRecord . Comm, 0) ) ) ; 

13 END; 

14 / 

Enter value for enterempno: 7654 
The Name : MARTIN 
The Job : SALESMAN 
The Salary : 1250 
The Commission : 1400 
The Gross Salary : 2 650 

PL/SQL procedure succe ssfully completed. 

e*p 

i!l ' 

£ m^jjmp n o % T Y P E 
* ' i E\p%ROWTYPE; 

Imp . Ename%TYPE ; 





EmpRecord . Comm) ; 
(V_EmpRecord . Sal 



SQL> cl scr 



:= SEnterEmpNo; 



Ename, Job, Sal, MGR 




DECLARE 
V_Empnj 
V_EmpI 
V_MGRNaii 

BEC iPt' 

Me 

\n)o 

+y_EmpRecord . Empno, V_EmpRecord . Ename, 
Record. Sal, V_EmpRecord. MGR 
FROM Emp 

WHERE Empno = V_Empno; 

IF V_EmpRecord . MGR IS NOT NULL THEN 
SELECT Ename INTO V_MGRN ame 
FROM Emp 



V_EmpRecord . Job, 
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15 WHERE Empno = V_EmpRecord . MGR; 

16 ELSE 

17 SELECT Ename INTO V_MGRN ame 

18 FROM Emp 

19 WHERE MGR IS NULL; 

20 END IF; 

21 DBMS_OUTPUT . PUT_LINE ( ' The Details of Employee Number 
' I I V_EmpRe cord . Empno | | ' Requested by You Are 

22 DBMS_OUTPUT . PUT_LINE ( ' The Employee Name : 

' | | INITCAP (V_EmpRecord. Ename) ) ; 

23 DBMS_OUTPUT . PUT_LINE ( ' The Manager Number : 

' | | NVL (TO_CHAR ( V_EmpRecord . MGR) , ' "Cannot be Managed" ' ) | | 
is : ' I |V_MGRName) ; 

24 DBMS_OUTPUT . PUT_LINE ( ' The Designation : 

' | ! INITCAP (V_EmpRecord . Job) ) ; 

25 DBMS_OUTPUT . PUT_LINE ( ' The Basic Salary 
' , TO_CHAR (V_EmpRecord . Sal , ' 99, 999. 99' ) ) ) ; 

26 END; 

27 / 

Enter value for enterempno: 7654 
The Details of Employee Number 7654 Reques 
The Employee Name : Martin 
The Manager Number : 7698 , and hi 

The Designation : Salesman 
The Basic Salary : INR 1,250. 



Name 



00 

PL/SQL procedure successfully q/mpj^te 

CS? 




You Are 



ted. 



SQL> cl scr 






io^T^RE := SEnterEmpNo ; 
K^hPE; 

10WTYPE ; 



SQL> DECLARE 

2 V_Empno Emp . Er 
V_EmpRecord El 
V_DeptRecord Deptj 

V_SalGradeR%;ord^SalGrade%ROWTYPE; 

V_MGRNa*#e Ename%TYPE ; 

BEGIN 0% \ 

SELECT ^yjTTO V_EmpRecord 
FRCJf'JCmp 

Mfc^lmpno = V_Empno; 

'oeS^’t * INTO V_DeptRecord 
[R-j|M Dept 

|WHERE Deptno = V_EmpRecord . Deptno ; 

'SELECT * INTO V_SalGradeRecord 
FROM SalGrade 

WHERE V_EmpRecord. Sal BETWEEN LoSal AND HiSal; 
IF V_EmpRecord . MGR IS NOT NULL THEN 
SELECT Ename INTO V_MGRN ame 
FROM Emp 
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Number 



Number : 
is 

Situated 



20 WHERE Empno = V_EmpRecord . MGR; 

21 ELSE 

2 2 SELECT Ename INTO V_MGRN ame 

23 FROM Emp 

24 WHERE MGR IS NULL; 

25 END IF; 

26 DBMS_OUTPUT . PUT_LINE ( ' The Details of Employee 
' I I V_EmpRe cord . Empno | | ' Requested by You Are . . . ') 

27 DBMS_OUTPUT . PUT_LINE ( ' The Employee Name : 

' | ! INITCAP (V_EmpRecord. Ename) ) ; 

2 8 DBMS_OUTPUT . PUT_LINE ( ' The Department 
' I I V_EmpRecord . Deptno | | Department Name 
' | | INITCAP (V_DeptRecord . Dname ) II', and is 
' | | INITCAP (V_DeptRecord. Loc) ) ; 

29 DBMS_OUTPUT . PUT_LINE ( ' The Designation : 

' | | INITCAP (V_EmpRecord. Job) ) ; 

30 DBMS_OUTPUT . PUT_LINE ( ' The Manager Number : 

' | | NVL (TO_CHAR ( V_EmpRecord . MGR) , '"Cannot be Man 
is : ' | | V_MGRName) ; 

31 DBMS_OUTPUT . PUT_LINE ( ' The Joining 

' I I TO_CHAR (V_EmpRecord. HireDate, 'FMDD, Mont% "V^at ' ) | | ' You Are Serving 
Since : ' | | TRUNC ( (SYSDATE - V_EmpRecorfl . rffpteDlite ) /3 65 ) || ' Years.'); 

32 DBMS_OUTPUT . PUT_LINE ( ' The Basic r ,sl i ' | | CONCAT ( ' INR 

' , TO_CHAR (V_EmpRecord . Sal , ' 99 , 999 . 99 ' ' and his Grade as Per Salary is 

' I I V_SalGradeRecord. Grade) ; 

33 DBMS_OUTPUT . PUT_LINE ( ' The cMTi^sion Earned : ' | | CONCAT ( ' INR ' , 

NVL (TO_CHAR (V_EmpRecord . Comm^ '-^ [ ^^9D99 ' ) , ' No Commission . . . Sorry !'))); 

34 DBMS_OUTPUT.PUT_LINE ( ' Th&^ctojss Salary Earned : ' | | CONCAT (' INR ', 

TO_CHAR ( (V_EmpRecord . Sal % jJ l ^(^jEmpRecord . Comm, 0) ) , ' 99G999D99 ' ) ) ) ; 

35 END; +A ^ 

o, / *+. M- 

6 + -ud 

Enter value for en^emanV 7 654 

The Details of Emp Ip v-g fe ^rombe r 7 654 Requested by You Are ... 

The Employee Name : Martin 

Department Name is Sales, and is Situated at 




Name 



30, 



The Department N limber 
Chicago 

talesman 



ser 



The Design^ 

The Manager 
The Joir#¥|p Da'Ee : 28, 

Since + + 4 V} 

32 YfSrs^ 

T hj3. B asi c Salary : INR 
Tn^Hommission Earned : 

^Th^wfross Salary Earned 

1?L/ SQL procedure successfully completed. 



7698, and his Name is : BLAKE 
September Nineteen Eighty-One You Are Serving Us 



1,250.00 and his 
INR 1,400.00 
: INR 2,650.00 



Grade as Per Salary is 2 



SQL> ED 

Wrote file afiedt.buf 
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1 DECLARE 

2 V_Emp Record Emp%ROWTYPE ; 

3 V_Empno V_EmpRecord . Empno%TYPE := &EnterEmpNo; 

4 V_MGRName V_EmpRecord . Ename%TYPE ; 

5 V_DeptRecord Dept%ROWTYPE; 

6 V_SalGradeRecord SalGrade%ROWTYPE; 

7 BEGIN 

* INTO V_EmpRecord 



V_Empno ; 
V_DeptRecord 



SELECT 
FROM Emp 
WHERE Empno = 

SELECT * INTO 
FROM Dept 

WHERE Deptno = V_EmpRecord . Deptno; 
SELECT * INTO V_SalGradeRecord 
FROM SalGrade 

WHERE V_EmpRecord. Sal BETWEEN LoSal 
IF V_EmpRe cord. MGR IS NOT NULL THEN 
SELECT Ename INTO V_MGRN ame 
FROM Emp 

WHERE Empno = V_EmpRecord . MGR; 

ELSE 

SELECT Ename INTO V_MGRN ame 
FROM Emp 

WHERE MGR IS NULL; ^ 

END IF; 

DBMS_OUTPUT . PUT_LINE ( ' Tjje fTeiHls of 




-ttetj^ls of Employee Number 
You Are 
Name : 



10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

' | | V_EmpRecord . Empno | | ' RequeS^V 
2 7 DBMS_OUTPUT.PUT_LINE^^^^%j^loyee 
' | ! INITCAP ( V_EmpRe cord. EWtm^Jf 
2 8 DBMS OUTPUT .PUT L lWv SmT^ Department Number : 

' | | V_EmpRecord . Deptupte | T Jp department Name is 
' | | INITCAP (V DeptR |cog 4Mame ) II', and is Situated at 
' | | INITCAP (V_DeptReccuJ : . Loc) ) ; 

29 DBMS_OUTPUT % UT_^JNE ( ' The Designation : 

' | | INITCAP (J«i%(acord. Job) ) ; 

30 DBMS_CtaFdre.P^T_LINE ( 'The Manager Number : 

' | | NVL (TO CHI mU r EmpRecord . MGR) , ' "Cannot be Managed" ' ) I I 
is : ' | yy GRName) ; 

31 ^et^RQ^TPUT . PUT_LINE ( ' The Joining Date : 

' | | Tj^C^K fv_EmpRecord . HireDate, ' FMDD , Month Year ' ) | | ' You Are Serving Us 
Siacl t : f ' 4 | | TRUNC ( (SYSDATE - V_EmpRecord. HireDate) /3 65) | | ' Years . ' ) ; 
+P§MS_OUTPUT . PUT_LINE ( ' The Basic Salary : ' | | CONCAT ( ' INR 

CHAR ( V_EmpRecord . Sal , ' 99 , 999 . 99 ' ) ) | | ' and his Grade as Per Salary is 
I V_SalGradeRecord . Grade) ; 

33 DBMS_OUTPUT . PUT_LINE ( ' The Commission Earned : ' | | CONCAT (' INR 

NVL (TO_CHAR (V_EmpRecord . Comm, ' 99G999D99 ' ) , ' No Commission . . . Sorry !'))); 

34 DBMS_OUTPUT . PUT_LINE ( ' The Gross Salary Earned : ' || CONCAT (' INR 

TO_CHAR ( (V_EmpRecord . Sal + NVL (V_EmpRecord . Comm, 0 )) , ' 99G999D99 ' ) ) ) ; 



and his Name 
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35* END; 
SQL> / 



Enter value for enterempno: 7654 

The Details of Employee Number 7654 Requested by You Are 
The Employee Name : Martin 

The Department Number : 30, Department Name is Sales, and is Situated 
Chicago 

The Designation : Salesman 

The Manager Number : 7698, and his Name is : BLAKE 

The Joining Date : 2 8 , September Nineteen Eighty-One You Are^Sag Us 

Since : 

32 Years. 

The Basic Salary : INR 1,250.00 and his Grade as Per 
The Commission Earned : INR 1,400.00 
The Gross Salary Earned : INR 2,650.00 

PL/SQL procedure successfully completed. 

SQL> SPOOL OFF 
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